-- background: 2767 from stack: in
-- bmap block id: 3190
-- flags: 0000
-- background id: 0
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=47 top=192 right=215 bottom=102
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: reset
----- HyperTalk script -----
on mouseUp
  global move
  --global flag
  put 0 into move
  set the scroll of bkgnd field "scroll 1" to move
  set lockscreen to true
  go to card start
  set the scroll of bkgnd field "scroll 1" to move
  set the lockscreen to false
  set the highlight of bkgnd button "indicator" to false
  show card field "conc"
  --put 0 into flag
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=192 top=303 right=335 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
  global count
  global result
  global a
  global b
  GLOBAL C
  global d
  global ans
  global score
  global scorea
  global scoreb

  go to card "change"
  ASK "PLEASE ENTER THE NUMBER OF ML OF BASE USED "
  PUT IT INTO RESULT

  put result - ans into C
  IF C<0 THEN PUT C*-1 INTO C
  IF C<.2 THEN
    put the seconds into b
    put b - a into score
    put .2-C into D
    if D<0 then put D*-1 into D
    put d*10 into d
    if d<.5 then put .5 into D


    put 300-score into scorea
    if scorea<0 then put 10 into scorea
    put scorea*D into scoreb
    set the numberformat to "0"
    put empty into card field correct
    put "correct!" into  line 1 of card field correct
    put "score" into line 3 of card field correct
    put scoreb into line 4 of card field correct
    put score  into line 6 of card field correct
    put "seconds" into line 7 of card field correct
    set the numberformat to "0.00"
    put "The computer's answer was "  into line 9 of card field correct
    put ans into line 10 of card field correct
    show card field answ

    show card field correct

  else
    put empty into card field correct
    put "Incorrect" into line 3 of card field correct
    put "Try Again" into line 6 of card field correct
    show card field correct
    wait 2 seconds
    hide card field correct
  END IF

end mouseUp



-- part 7 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=167 top=59 right=90 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: scroll 1


-- part 9 (button)
-- low flags: 00
-- high flags: C002
-- rect: left=87 top=261 right=281 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: indicator
----- HyperTalk script -----
on mouseUp
  global count
  global move

  global flag

  put 0 into flag
  set the highlight of bkgnd button "indicator" to true
  hide card field "conc"
  if move > count then
    set lockscreen to true
    go to card change
    set the scroll of bkgnd field "scroll 1" to move
    go to card start
    set the lockscreen to false

    visual dissolve
    go to card "change"

    put 1 into flag

  end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=47 top=41 right=76 bottom=101
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2.5 ml
----- HyperTalk script -----
on mouseUp
  global move
  global flag
  global count
  put move + 45 into move
  set the scroll of bkgnd field "scroll 1" to move

  if the scroll of bkgnd field "scroll 1" >= count  and flag =0 then

    go to card "midpoint"
    set the lockscreen to true
    go to card "change"
    set the scroll of bkgnd field "scroll 1" to move
    set the lockscreen to false
    put 1 into flag

  end if







end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=47 top=79 right=114 bottom=101
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1.0 ml
----- HyperTalk script -----
on mouseUp
  global move
  global flag
  global count
  put move + 18 into move
  set the scroll of bkgnd field "scroll 1" to move

  if the scroll of bkgnd field "scroll 1" >= count  and flag =0 then

    go to card "midpoint"
    set the lockscreen to true
    go to card "change"
    set the scroll of bkgnd field "scroll 1" to move
    set the lockscreen to false
    put 1 into flag

  end if

end mouseup




-- part 12 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=47 top=117 right=153 bottom=101
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1 drop
----- HyperTalk script -----
on mouseUp
  global move
  global flag
  global count
  put move + 1 into move
  set the scroll of bkgnd field "scroll 1" to move
  --if the scroll of bkgnd field "scroll 1" < count then
  --set the lockscreen to true
  --go to card "change"
  --set the scroll of bkgnd field "scroll 1"  of card "change" to move
  --go to card "start"
  --set the lockscreen to false
  --end if
  if the scroll of bkgnd field "scroll 1" >= count  and flag =0 then

    go to card "midpoint"
    set the lockscreen to true
    go to card "change"
    set the scroll of bkgnd field "scroll 1" to move
    set the lockscreen to false
    put 1 into flag

  end if




end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=251 top=303 right=335 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Instructions
----- HyperTalk script -----
on mouseUp
  push card
  go to card "instructions"
end mouseUp